unit Class_Memb;

interface
uses
  Classes,SysUtils,Uni,UniEngine;

type
  {TObject}=class(TUniEngine)
  public
    {FieldName:DataType}
  protected
    procedure SetParameters;override;
    function  GetStrInsert:string;override;
    function  GetStrUpdate:string;override;
    function  GetStrDelete:string;override;
    function  GetStrsIndex:string;override;
  public
    function  GetNextIdex:Integer;overload;
    function  GetNextIdex(AUniConnection:TUniConnection):Integer;overload;
  public
    function  CheckExist(AUniConnection:TUniConnection):Boolean;override;
  public
    class function ReadDS(AUniQuery:TUniQuery):TUniEngine;override;
    class function CopyIt({AObject}:{TObject}):{TObject};        
  end;

implementation

{ {TObject} }

function {TObject}.CheckExist(AUniConnection: TUniConnection): Boolean;
begin

end;

function {TObject}.GetNextIdex: Integer;
begin

end;



class function {TObject}.CopyIt({AObject}: {TObject}): {TObject};
begin

end;

function {TObject}.GetNextIdex(AUniConnection: TUniConnection): Integer;
begin

end;

function {TObject}.GetStrDelete: string;
begin

end;

function {TObject}.GetStrInsert: string;
begin

end;

function {TObject}.GetStrsIndex: string;
begin
  Result:=Format('%S-%D',[UnitLink,MembIdex]);
end;

function {TObject}.GetStrUpdate: string;
begin

end;

class function {TObject}.ReadDS(AUniQuery: TUniQuery): TUniEngine;
begin
  Result:={TObject}.Create;
  with {TObject}(Result) do
  begin
    {FieldName:FieldByName}
  end;  
end;

procedure {TObject}.SetParameters;
begin
  inherited;
  with FUniSQL.Params do
  begin
    case FOptTyp of
      otAddx:
      begin
        {ParamByName:FieldName} 
      end;
      otEdit:
      begin
        {ParamByName:FieldName} 
      end;  
      otDelt:
      begin
        {ParamByName:FieldName} 
      end;  
    end;
  end;

end;

end.
